let
( >! ) x y = (cmp x y)>0